home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / src / editors / TurboText / Rexx / ErrorMove.ttx < prev    next >
Encoding:
Text File  |  1995-12-24  |  1.2 KB  |  58 lines
  1. /*
  2. **      $Id: ErrorMove.ttx,v 30.0 1994/06/10 18:06:17 dice Exp $
  3. **
  4. **      DICE Error Parsing system.  Script for Oxxi TurboText (tm).
  5. **
  6. **  Notes: This assumes that your DCC:Config/DCC.Config file contains the
  7. **         following line:
  8. **
  9. **  cmd= rx DCC:Rexx/TTX_ErrorParse.rexx %e "%c" "%f" "%0"
  10. */
  11.  
  12. PARSE UPPER ARG COMMAND  /* Valid commands: Current First Next Prev */
  13.  
  14. OPTIONS RESULTS
  15.  
  16. IF ~show('p','DICE_ERROR_PARSER') THEN
  17.    DO
  18.       'SetStatusBar Error Parsing Not Active'
  19.       EXIT 0
  20.    END
  21.  
  22. ADDRESS DICE_ERROR_PARSER COMMAND E
  23. IF rc ~= 0 THEN
  24.    DO
  25.       'SetStatusBar No More Errors'
  26.       exit 0
  27.    END
  28.  
  29. IF E.LINE = 0 THEN
  30.    DO
  31.    IF LEFT(E.TEXT, 5) = 'DLINK' THEN
  32.       DO
  33.          TT = TRANSLATE(E.STRING, '-', '"')
  34.          /* This is a DLINK error, we need to handle it special */
  35.          'RequestBool "There were DLINK Errors" PROMPT "'TT'"'
  36.          exit 0
  37.       END
  38.    END
  39.  
  40. ADDRESS DICE_ERROR_PARSER TTXSAME '"'E.FPATH'" "'E.ARGS'"'
  41. IF RC ~= 0 THEN
  42.    DO
  43.       'SetStatusBar Unable to open' E.FPATH
  44.       exit 0
  45.    END
  46.  
  47. Port = RESULT
  48. ADDRESS Value Port
  49. 'MoveBookMark' 1000+E.line
  50. IF RC = 0 THEN
  51. DO
  52.    'GetCursorPos'
  53.    E.Line = word(result, 1)
  54. END
  55.    'Move FOLDS' E.Line E.Col
  56.  
  57. 'SetStatusBar' E.STRING
  58.